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Introdução 

a 

Embora todos os micros nacionais 
utilizem a linguagem BASIC, existem 
vários dialetos desta linguagem usados 
em micros de diferentes marcas e 
modelos. Os micros nacionais podem ser 
divididos em seis “famílias”: a família 
Spectrum (TK-85, TK-90X), a família 
TRS-80 (DGT-1000, CP-500 etc.), a 
família TRS-80 Color (CP-400), a família 
Apple (Micro Engenho, Ap-II etc.), a 
família MSX (Expert, Hot Bit) e a 
família PC (Ego, 1-7000 etc.). Se você 
nào souber a que família pertence o seu 
micro, poderá obter a informação em 
qualquer loja especializada. 

Neste livro, a listagem principal de 
cada programa é para os micros da 
família TRS-80. As linhas que precisam 
ser mudadas para que o programa 
funcione em outros computadores estão 
indicadas por símbolos e as modificações 
aparecem no final de cada listagem. Os 
símbolos são os seguintes: 

O família TRS-80 Color 
▼ família Spectrum 

• família Apple 
■ família MSX 

♦ família PC 

ACommodore 64 e V1C 20* 

Cada vez que você vir o símbolo da 
família a que pertence o seu micro, 
procure no final da listagem uma linha 
com o mesmo símbolo e o mesmo 
número. Use-a no lugar da linha 
correspondente da listagem principal. Na 
página 17 há notas especiais para os 
usuários do TK-2000, do MSX e do PC. 


•Até o momento nào têm equivalentes no Brasil. 


Como carregar e executar os 
programas 

Escreva as linhas exatamente como 
aparecem na listagem, incluindo todos os 
espaços e sinais de pontuação. Depois de 
bater cada linha, verifique na tela se 
tudo está certo antes de apertar a tecla 
RETURN (ou a tecla equivalente para o 
seu micro). 

Para começar o jogo, entre com RUN. 
Em alguns jogos, as coisas acontecem 
muito depressa, de modo que é melhor 
ler atentamente as instruções antes de 
começar. Se o programa nào funcionar 
corretamente, o melhor é listá-lo c 
comparar as instruções com as do livro, 
uma por uma, até descobrir onde está o 
erro. 


Experiências com os jogos 

Este livro contém várias sugestões para 
modificar e ampliar os programas, mas 
nào tenha medo de introduzir suas 
próprias alterações. Nào há perigo de 
danificar o computador; se sua idéia nào 
der certo, você sempre poderá voltar ao 
programa original. 

Você provavelmente terá vontade de 
mudar a velocidade de alguns jogos, 
especialmente depois que estiver 
familiarizado com eles. As instruções 
para fazer isso estão perto da listagem de 
cada programa. 

Se o seu computador é capaz de gerar 
cores ou sons, consulte o manual para 
descobrir como funcionam as instruções 
correspondentes e experimente usá-las nos 
programas deste livro. 


Ilustrações: Sue Walliker, Rob McCaig e 
Martin Newton. 
Diagramação: Roger Priddy. 

Programa “Espiobot": Adrian Hall. 



Olhos de Espião 

Se você acha que daria um bom espião, experimente este jogo. 

O computador mostra na tela os números de 1 a 9. Examine 
atentamente a posição dos números antes de apertar uma tecla 
(qualquer tecla serve). Um dos números muda de posição. Qual 
deles? Quando achar que sabe a resposta, aperte de novo uma 
tecla e entre com o seu palpite. Vai ver que seus poderes de 
observação não são tão fabulosos quanto pensava. 


10 D1M X(9):DIM Y<9) 

20 LET P=0 
30 FOR 1=1 TO 9 
40 GOSUB 340:LET X(I)=N+3 
50 GOSUB 340:LET Y(l)=N+3 
r' 60 NEXT I 

70 GOSUB 360 

80 G0SU8 310 

90 .GOSUB 340 

100 LET M=N: GOSUB 340 

110 LET X(M)=X<M)+SGN(N-5.1 ) 

120 GOSUB 360 
130 GOSUB 310 
140 CLS:PRINT 

150 PR INT "QURL 0 NUMERO OUE SE MOVEU?” 

160 INPUT fl 

170 IF ROM THEN G0T0 250 

180 CLS: PR INT 

190 PR INT "MUITO BEM!" 

200 LET P=PO 

210 PR INT "RG0RR V0CE TEM " ; P;” PONTOS" 

220 PRINT-.PRINT “RPERTE UMR TECLR" 

230 GOSUB 310 
240 G0T0 30 

a# 250 CLSsPRINT-.PRINT "ERRRD0. ..FIM D0 JOGO" 
260 PR INT "R RESP0STR CERTfl ERR ”;M 
270 PR INT V0CE FEZ ";P;” PONTOS” 

280 PR INT "QUER JOGRR DE NOVO? (S/N)“ 

290 INPUT RS= IF RS="S” THEN RUN 
30C STOP 

*•310 LET I$= INKEYS 

320 IF 1$="" THEN GOTO 310 
330 RETURN 

♦▼AM 340 LET N=INTíRND(0)*9)+l 
350 RETURN 
*•360 CLS 

370 FOR 1=1 TO 9 

O+taM 380 PR1NT0 Y ( I )*64+X< I ) ,STR$< I ) • 

390 NEXT I 
400 RETURN 


Como o programa funciona 

10: Reserva espaço na memória para as posições 
dos números. 

20: Inicia a contagem de pontos em zero. 

30-60: Escolhe as posições dos números. 

70: Vai para a sub-rotina que mostra os números na 
tela. 

80: Vai para a sub-rotina que espera até que uma 
tecla seja apertada. 

90-100: Vai para a sub-rotina que escolhe um dos 
números e o chama de M. 

110: Decide se o número vai ser movido para a 
direita ou para a esquerda. 

120: Vai para a sub-rotina que mostra os números 
na tela. 

130: Vai para a sub-rotina que espera até que uma 
tecla seja apertada. 

140-150: Limpa a tela e imprime mensagem. 

160: Recebe um número. 

170: Se o número está errado, pula para as 
mensagens das linhas 250 a 280. 

180-190: Limpa a tela e imprime mensagem. 

200-210: Aumenta a contagem de pontos e mostra o 
resultado. 

220-230: Imprime mensagem e vai para a sub-rotina 
que espera até que uma tecla seja apertada. 

240: Volta para uma nova tentativa. 

250-300: Informa que você errou e pergunta se quer 
jogar de novo. 

310-330: Sub-rotina que espera até que uma tecla 
seja apertada. 

340-350: Sub-rotina para escolher um número ao 
acaso entre 1 e 9. 

360-400: Sub-rotina para mostrar os números na 
tela, nas posições escolhidas. 


Modificações 



• 140,180.250,360 Substitua CLS oor HOME 

A 140 180 250,360 Substitua CLS por PR 1 NT CHRS(147> 

• 310' IS=’ T " s IF PEEK(-163B4)>127 THEN GET IS 
A 310 GET IS 

*■# 340 LET N-tNT<RND(l)*9+D 

♦▼ 340 LET N=1NT (RND49+1 ) 

0 380 PRINTP Y( l )*32+X< I ) , STRS( I ) ; 

• 380 YTRB(Y< I ) ) :HTR8(X( l )) SPRINT STRS(l) 

▼ 380 PR INT RT Y<I) r XU>jSTRÍ<I) 

A 380 PRINT CHRS(19>:F0R LL=1 T0 Y(1):PRINT:NEXT. 
PR INT TRB(X(1));STRS(D 
♦■ 380 L0CRTE X(I),Y<I) SPRINT STRSU) . 


i 
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Holofote 




■ ‘ i: atravessar uma 

região muito vigiada do território inimigo e voltar, esquivando-se aos raios de um 
potente holofote. Você pode se esconder atrás de árvores e pedras, mas se for visto... 
não terá uma segunda oportunidade. Depois de completar uma missão, receberá 
outra, ainda mais difícil. Quantas missões será capaz de cumprir antes de ser 
descoberto pelo inimigo? 

Use a tecla M para andar para a direita e N para andar para a esquerda. Para 
rnmnletar uma missão, você precisa cruzar o terreno duas vezes, uma na ida e outra 


Esta noite você tem que executar uma missão extremamente perigosa 
'igiada do território inimigo e ’ 


segunda oportunidade. Depois de completar uma missão, receberá 


Como o programa 
funciona 

10: Vai para a sub-rotina que lê os dados 
20: Dá valores iniciais às variáveis. 

40-50: Imprime os obstáculos. 

60-70: N é a posição do jogador. NN 
é a nova posição. 

80: Verifica se uma tecla está sendo 
apertada. 

90-100: Se a tecla apertada é N 
(esquerda), a nova posição é N menos 
1. Se é M (direita), a nova posição é 
N mais 1. 

110-120: Evita que o jogador saia da tela 
130-140: F se torna igual a 1 quando o 
jogador chega à extremidade direita da 
tela e igual a 2 quando ele chega de 
novo à extremidade esquerda. 

150: Vai para a sub-rotina que muda a 
posição do jogador. 

160: Quando o jogador se move, S 
aumenta. 

170: Faz a posição do jogador igual à 
nova posição e aumenta G. G 
funciona como um contador de 
tempo, aumentando sempre, mesmo 
que o jogador não se mova. 

180: Vai para a sub-rotina que acende 
e apaga o holofote. 

190: Verifica se o jogador está abaixo 
de um espaço vazio com o holofote 
ligado; em caso afirmativo, vai para o 
fim do jogo. 

200: Pausa. 

210: Se o jogador não voltou ao lado 
esquerdo da tela, verifica de novo se 
alguma tecla está sendo apertada. 


10 G0SUB 450 

20 LET fl=l sLET G=0:LET S=0 
A* 30 CLS 

40 LET X=0:LET Y=12:LET B5=flS(fl) s 
50 G0SUB 380 

60 LET F=0:LET N=0:LET NN=0:G0SUB 340 
70 LET L=0=LET C=0:LET TC=10:LET C1=0 
A# 80 LET 13-INKEYS 

90 IF IS="N" THEN LET NN=N-1 
100 IF IS= M M” THEN LET NN=N+1 
110 IF NN> 1 9 THEN LET NN=19 
120 IF NN<0 THEN LET NN=0 
130 IF NN=1 9 AND F=0 THEN LET F=1 
140 IF NN=0 AND F=1 THEN LET F=2 
150 G0SUB 340 

160 IF NONN THEN LET S=S+1 
170 LET N=NN:LET G=G+1 
180 G0SUB 400 

▼190 IF M1DS(AS(A) r N+l , 1 ) = “ " AND L=1 
200 FOR T=1 T0 50:NEXT T 
210 IF F<2 THEN GOTO 80 


Você sabe como 
fazer o holofote 
ficar aceso por mais 
tempo? / 


Talvez voce possa \ 
substituir os obstáculos, 
indicados nesta listagem 
pelo símbolo = , por 
símbolos gráficos que 
representem árvores, > 
-construções etc. 
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220: Aumenta o nível de dificuldade 
230: Volta para imprimir novos 
obstáculos. 

240-290: Imprime mensagem, a 
contagem final e pergunta se quer 
jogar de novo. 

o holofote. 


Faça soar um 
alarma quando o 
jogador for visto 


300-310: Imprime 
320-330: Apaga o holofote. 

340-370: Sub-rotina que muda a , 
posição do jogador. 

380-390: Sub-rotina que imprime 
símbolos na tela a partir das 
coordenadas X,Y. 

400-440: Sub-rotina que escolhe o 
tempo que a luz vai passar ligada e o 
tempo que vai passar desligada. 
450-470: Sub-rotina que lê os dados. 
480-540: Linhas de dados. 


Z20 LET R=R+l:lF fl=8 THEN LET fl=7 
230 G0T0 30 

240 LET X=4:LET Y=1=LET BS= ,, V0CE FOI VISTO 
250 G0SUB 380 :PRINT 

260 PRINT "V0CE FEZ " j INT< (R-HS/G>*100) 

270 PRINTSPRINT “QUER J0GRR DE NOVO? (S/N) 

280 INPUT CSÜF C*-“S" THEN RUN 

290 PRINT "TCHRU. . ."sSTOP / 

300 LET Y=3SLET X*10:LET BS*"*" / 

310 G0SUB 380SRETURN V 

320 LET X=10:LET Y=3:LET BS=" " > 

330 G0SUB 380: RETURN 

340 LET X=NSLET Y=13:LET BS=" " 

350 G0SU8 380 
360 LET X=NN*LET 
370 G0SUB 380: RETURN 
380 PRINT8 Y*64+X,8S; 

390 RETURN 

400 IF L=1 THEN LET C=C+1 
♦ ■ 410 1F C*TC THEN LET L=0=LET C=0=LET TC=IN 
420 IF L=0 THEN LET C1=C1+1 
♦■ 430 IF C1=TC THEN LET L=1 «LET C1=0:LET TC= 
440 RETURN 
▼ 450 DIM RS(7) 

460 FOR 1=1 T0 7:RERD RS(l)sNEXT I 

470 RETURN . 

480 DRTR "== = = == == = = ==" f 

500 DRTR "= ==== = = = =" \ 

510 DRTR "= = = = == =" 

520 DRTR "= 

530 DRTR "= = = a =" 

540 DRTR "= = ■" 


Como você faria para da 
ao jogador uma segunda 
oportunidade, tornando 
assim o jogo mais fácil? 


Modificações 


• 30 HOME 

▲ 30 PRINT CHR$(147) 

A 80 GET 15 

• 80 IS=""s IF PEEK ( -1 6384 ) > 1 27 THEN GET 15 

▼ 190 IF R5(fl r N*l >*” " AND L=1 THEN G0T0 240 
0 380 PR1NT8 YI32+X.B5; 

V 380 PRINT RT Y,X r B5 

• 380 VTR8(Y):HTRB<X+1):PRINT BS 

A 380 PRINT CHÍ5(19):F0R LL=1 T0 Y:PRINT*.NEKT:PRINT TRB(X);BS 
#■380 L0CRTE X f Y: PRINT BI 
♦▼410.430 Substitua RND(0) por RND 
*■•410, 430 Substitua RN0(0) por RND(l) 

▼ 450 DIM RS(7 f 20) 


Você pode mudar N 
a posição dos 
obstáculos 
mudando as linhas 
de dados. v 






Espiobot 


Você foi encarregado de controlar o Espiobot, um robô operado à 
distância que é capaz de seguir agentes inimigos. Você é informado a 
respeito dos movimentos do agente nas ruas da cidade (se ele dobrou : 
direita ou à esquerda) e deve transmitir a mesma informação ao 
Espiobot, para que ele não perca o agente de vista. 

Infelizmente, o agente sabe que está sendo seguido; à medida que o 
tempo .passa, torna a sua tarefa cada vez mais dificil. 

Use a tecla D para informar ao Espiobot que o agente foi para a 
direita e E para informar que foi para a esquerda. Por quanto tempo 
conseguirá seguir o agente inimigo? 


Você sabe como fazer 
o computador 
perguntar o nome do 
jogador se ele bater o 
recorde? 



10 LET SP =0.3 
à# 20 CLS 
30 LET H=0 

40 LET K=0:LET S=0:LET L=1 SPRINT 
50 PRINT ">>> ESP 10B0T <<<":PRINT 
60 PRINT "RPERTE P PRRfl PRRTIR" 

▲• 70 LET CS=!NKEYS 

80 IF CSO"P" THEN GOTO 70 
▲•90 CLSJPRINT8PRINT 

100 IF K=5 THEN LET L=L+1 sLET K=0 
110 LET HI="" 

120 LET CS="" 

130 FOR T=1 TO L 
+▼▲■•140 LET N=RND(0) 

150 IF N>=0.5 THEN PRINT "ES0"sLET HS=hS+"E" 
160 IF N<0.5 THEN PRINT "DIR":LET MS=MS+"D" 
170 NEXT T 
180 LET K=K+1 
190 FOR D=1 TO 200*L*SP 
▲•200 LET CS=INKEYS 
210 NEXT D 

▲• 220 CLS:PRINT:PRINT 
230 LET E=0 

240 PRINT "Dl GR RS DIREÇÕES" 

250 FOR T=1 TO L 
260 PRINT "?" ; 

▲• 270 LET CS=INKEYS 

280 IF CIO "D" RND CSO"E" THEN GOTO 270 
290 PRINT CS 

▼ 300 IF CSOHIDS(NS,T,l ) THEN LET E=1 
310 NEXT T 

320 IF E=0 THEN LET S=S+L 
330 IF S>=H THEN LET H=S 

340 IF E=1 THEN PRINT "VQCE 0 DEIXOU ESCRPRR ! 
350 PRINT "VOCE FEZ ";S;" PONTOS" 

360 PRINT "0 RECORDE E ";H-" PONTOS" 

370 IF E=1 THEN GOTO 40 
380 FOR D=1 TO 500*SP 
390 NEXT D 
400 GOTO 90 


Como funciona 

30-40: Dá valores iniciais às 
variáveis. L é o número de palavras 
que aparecem na tela. K indica 
quantas vezes apareceram L 
palavras. 

60-80: Imprime mensagem e espera 
que a teclai* seja apertada para 
começar. 

90: Limpa a tela e deixa duas linhas 
em branco. 

100: Se K é 5, aumenta L e faz K 
igual a zero. 

110-120: Inicializa duas variáveis 
“string”. 

130-170: Escolhe ao acaso uma 
seqüência de L direções, mostra essas 
direções na tela e as guarda em MS. 
180: Aumenta o valor de K. 

190-210: Pausa para que o jogador 
possa ver as direções. A duração 
aumenta com o número de palavras. 
230: Indicador de erro; se o jogador 
comete um engano, E passa a ser 
igual a 1. 

250: Começo de um “loop” para 
receber e verificar as respostas. 
260-270: Imprime um ponto de 
interrogação, recebe uma direção e a 
guarda em CS. 

280: Se a tecla apertada não é D 
nem E, continua esperando. 

300: Verifica se a letra em CS 
corresponde à letra apropriada em 
MS; caso não corresponda, faz E 
igual a 1. 

320: Aumenta a contagem de pontos 
se não houve erros. 

330: Anota o novo recorde se 
necessário. 

340: Imprime mensagem em caso de 
erro. 

350-360: Imprime a contagem e o 
recorde. 

370: Volta para um novo jogo. 
380-390: Pausa para mostrar a 
contagem. 

400: Volta para uma nova rodada. 


Modificações 

• 20,90,220 Substitua CLS por HOME 

▲ 20,90,220 Substitua CLS por PRINT CHRSÍ147) 

• 70,200,270 CS=" " s IF PEEK (-16384) >127 THEN GET CS 
A 70,200,270 GET CS 

♦▼140 LET N=RND 
▲■•140 LET N=RND(1 ) 

▼ 300 IF CSOHS(T) THEN LET E=1 


A velocidade do jogo é 
controlada pela linha 10. 
Para começar, use os 
seguintes valores: Apple 
0.1, Spectrum 0.2, 
TRS-80/TRS-80 
Color/MSX 0.3, 
Commodore 64/VIC 20 - 
0.4, PC 0.5. 
Independentemente do 
tipo de micro, quanto j 
menor o número, mais / 
rápido será o jogo. / I 




Teste para Espiões 

Como aluno da Escola de Espionagem, você tem que passar em uma série de testes para 
subir de posição. Você começa no nível mais baixo, o de Espião Aprendiz Nível 5. Seu 
objetivo é chegar ao topo e tornar-se um EMI* Nível 1, ou mesmo conquistar o grau 
máximo de Superespião. 

Em cada teste, você dispõe de dez posições na tela do computador e recebe uma série 
de números entre 1 e 99. Seu objetivo é colocar esses números em ordem nas dez 
posições, com o menor na posição 1 e o maior na posição 10. 

Você tem direito a descartar alguns números que não sirvam apertando a tecla D. O 
número de números que você pode descartar é igual ao número do nível onde você está. 


Como o programa funciona 


▼ 10 DIH N< 10) sDIM NS(5) 

*•20 CLS 

30 G0SUB 510 
40 LET US* M " 

50 LET 0=5 
60 LET G=0 

70 FOR 1=1 T0 10-.LET N(1>=0:NEXT 1 
80 LET 1=1 
90 G0SUB 430 

♦▼*■•100 LET M=INT(RND(0)*99+1) 

110 PR INTsPR INT "ONDE 00CE COLOCA ";M;" ?" 

120 PR INT : INPUT PS 

130 1F PS="D" AND G<D THEN LET G=G+1:G0T0 90 
140 1F PS= M 0" THEN PR INT "NAO POOEI^sGOTO 120 
150 LET P=0AL(PS) 

160 1F P<1 0R P>10 THEN G0T0 120 


10: Reserva espaço na memória para 
as matrizes. 

20: Limpa a tela. 

30: Vai para a sub-rotina que lê os 
dados a serem guardados na matriz 
N$. 

40: Cria uma “string” vazia. 

50: Começa no nível 5. 

60: G é o número de números 
descartados. 

70: Coloca zeros nas 10 posições para 
começar. 

80: Conta os números que foram 
colocados. 

90: Vai para a sub-rotina que imprime 
o seu nível, os números de 1 a 10 e os 
números que já foram colocados. 

100: Escolhe um número entre 1 e 99. 


Você sabe como 
mudar o número 
de posições de 10 
para 15? 




110-120: Imprime o número e 
pergunta onde você quer colocá-lo. 
130-140: Verifica se você apertou D e 
se ainda tem direito de descartar 
números. 

150: Calcula o valor numérico da tecla 
que você apertou. 

160: Se a tecla apertada não está entre 
1 e 10, continua esperando. 


Mude os 
nomes dos 
níveis se 
quiser. 


•Espião Muito Importante. 




170 1F N(P) >0 THEN PRINT "ESTR OCUPADO" :GOTO 

180 LET N(P )=H 

190 LET F=0 

200 FOR L=P TO 10 

210 1F N<LHM RND N(LX>0 THEN LET F=1 

220 NEXT L 

230 FOR L=1 TO P 

240 IF N(L) >M RND N(LX)0 THEN LET F=1 
250 NEXT L 

260 1F F=1 THEN GOTO 360 

270 LET I = [-M:1F Kll THEN GOTO 90 

280 LET D=D-l:lF D=0 THEN GOTO 330 

290 PRINT ‘MUITO BEM. PASSOU PflRR NIVEL "-D 

300 PRINTrPRINT "VOCE RGORR E UM "-NS<D) 

310 LET US= M " 

320 GOTO 400 

330 PRINT 'PRRRBENS! VOCE CHEGOU RO NÍVEL" 

340 PRINT “DE SUPER1ESP IRO ! " 

350 STOP 

360 PRINT "ERRRDO. SINTO MUITO." 

370 PRINT: PRINT "VOCE flINDR E UM "- 
380 PRINT NS(D) 

390 LET US="RINDR" 

400 PR INT:PR INT "QUER TENTRR DE NOVO? (S/N)“ 
410 INPUT flSÜF RS="S" THEN GOTO 60 
420 STOP 
A* 430 CLS 

440 PRINTrPRINT "VOCE E ";US," UM "-NS(D) 

450 PRINT 

460 FOR J=1 TO 10 

470 PRINT J- 

480 IF N(J)>0 THEN PRINT N(J)- 
490 PRINTSNEXT J 
500 RETURN 

510 FOR 1=1 TO 5:RERD NS(I) 

520 NEXT I 
530 RETURN 

540 DRTR "EM I " , "ESP I RO" f "ESP I RO JUNIOR" 

550 DRTR "ESPIRO ASSISTENTE" , "ESPIRO APRENDIZ 


120 170: Verifica se a posição já está 

ocupada e informa ao jogador. 

180: Coloca o número na posição 
indicada. 

100-220: Verifica todas as posições 
abaixo da indicada para ver se alguma 
contém um número menor. Em caso 
afirmativo, faz F igual a 1. 

230-250: Verifica todas ás posições 
acima da indicada para ver se alguma 
contém um número maior. Em caso 
afirmativo, faz F igual a 1. 

260: Se a posição está errada, pula 
para a linha 360. 

270: Aumenta o contador e volta para 
escolher outro número. 

280-300: Muda D para o nível seguinte 
e imprime mensagem (se D é O, vai 
para a mensagem de Superespião). 

310: Coloca uma “string” vazia em 

W$. 

320: Pula para a mensagem “Quer 
tentar de novo?” 

330-350: Mensagem de Superespião. 
360-380: Mensagem de erro. 

390: Coloca a palavra “ainda” em 

W$. 

400-420: Pergunta se você quer jogar 
de novo; se a resposta é não, encerra 
o jogo. 

430-500: Sub-rotina que imprime o 

nível e os números. 

510-530: Sub-rotina que coloca os 
nomes dos níveis na matriz N$. 
540-550: Dados. 


Modificações 

* 

▼ 10 D1M N(10) sDIM NS <5,16) 

• 20,430 Substitua CLS por HOME 
A 20,430 Substitua CLS por PRINT CHRSÍ147) 
♦▼100 LET M=INT(RND*99+1 ) 

•■▼100 LET M=INT(RND(1)*99+1) 



Gerador de Mensagens Secretas 

Use este programa para enviar mensagens em código a seus amigos. Eles vao precisar 
de um computador para decodificar as mensagens, mas não necessariamente do 
mesmo tipo que o seu. (É claro que também vão precisar de uma copia do 
programa.) Eles também poderão mandar mensagens em código para voce. 




Você e seus amigos 
poderão formar uma Rede 
de Espionagem. > 


▲•10 CLSsPR INTsPR INT "MENSAGEM SECRETA” 

20 PR INT "==*=*=■=====*«*" 

30 PR INT SPRINT "VOCE QUERl" 

40 PR INT 

50 PRINT " 1.C00IFICAR UMA MENSAGEM" 

60 PRINT "OU 2 . 0EC00 I F I CAR UMA MENSAGEM” 

70 PRINTsPRINT 

00 PRINT "ENTRE COM 0 NUMERO" : INPUT A 
90 IF A=1 THEN G0SUB 120 
100 IF A=2 THEN G0SUB 210 
110 G0T0 30 

120 LET CS S "C0D1F IÇADA" sGOSUB 400 
*▼▲■•130 LET X=INT(RN0(0)*25+1) 

140 LET MI e ‘’F"*MS 

150 G0SUB 310 sGOSUB 420 

160 LET Hf s CHRI(X+64)+MS 

170 IF LEN < MS ) /2 a I NT ( LEN ( MS ) /2 ) THEN GOSUfl 450 
180 PRINT "MENSAGEM EM CODIGOs" 

190 PRINT M* 

200 RETURN 

210 LET CS*"DEC00IF IÇADA" iGOSUB 400 

220 IF LEN(MS)/2*lNT(LEN(MS>/2) THEN GOSUB 450 

▼ 230 LET KS»LEFTS(MS,1) 

▼ 240 LET MS 3 R I GHTS ( Ml , LEN ( Mf ) - 1 ) 

▼ 250 LET X=ASC(KS)-64 
260 LET X*-X SGOSUB 420 


Como o programa funciona 

10-80: Imprime o “menu” e recebe sua opção. 
90-100: Vai para a sub-rotina apropriada. 
illO: Se a escolha não faz sentido, volta 
'para o menu. 

120-200: SUB-ROTINA PARA CODIFICAR 
120: Vai para a sub-rotina que recebe a 
mensagem. 

130: Escolhe de quanto as letras vão ser 
deslocadas e guarda este valor em X. 

140: Acrescenta uma letra para que, 
caso a primeira palavra tenha apenas 
uma letra, a mensagem codificada não 
comece com um espaço. 

150: Vai para duas sub-rotinas, uma 
que desloca a mensagem de X letras e 
outra que a inverte. 

160: Acrescenta uma letra à mensagem 
para informar à sub-rotina de 
decodificação qual é o valor de X. 

170: Verifica se a mensagem tem um 
número par de letras. Em caso 
afirmativo, vai para uma sub-rotina que 
troca as letras duas a duas. 

210-300: SUB-ROTINA PARA 
DECODIFICAR 

210: Vai para a sub-rotina que recebe a 
mensagem. 

220: Se a mensagem tem um número 
par de letras, vai para uma sub-rotina 
que troca as letras duas a duas. 

230-240: Suprime a primeira letra. (Esta 
é a letra que foi acrescentada na linha 
160 para indicar o deslocamento.) 

250: Calcula o valor de X. 

260: Muda o sentido do deslocamento e 
vai para a sub-rotina que inverte a 
mensagem. 


RSKSU SZFÀE EW GSLKW 
KGFSDH KGX 


XCAMT KMA 
PYJYD PCSO 
CDCFA MD 


RGLFSMIFW JGH SD 
JSUAX EWVGHX 


EDPZWMS Y VSXYET 
GKSQMRM 
MI6 



KJXRWK KOSSBO 
AEK SQPN 



▼ 270 GOSUB 310:MS=RIGHTS(MS,LEN(MS>-1) 

280 PR INI "MENSAGEM OECODIFICRDR: " 

290 PR1NT MS 

300 RETURN 
310 LET NS=“" 

320 FOR 1=1 TO LEN(MS) 

▼ 330 LET 0S=M1DS(MS,1,1):LET N=RSC(OS) 

340 IF N=32 THEN GOTO 380 

350 LET N=N+X 

360 IF N>90 THEN LET N=N-26 

370 IF N<65 THEN LET N=N+26 

380 LEt NS=NS+CHRS(N) sNEXT I 

390 LET MS=NSs RETURN 

400 PR1NT "QURL E fl MENSRGEM fl SER ';CS 

410 INPUT MS:RETURN 

420 LET NS="":FOR 1=LEN(MS) TO 1 STEP -1 

▼ 430 LET NS=NS+M10S(MS r l r l)sNEXT I 
440 LET MS=NS:RETURN 

450 LET NS="":LET L=LEN(MS) 

460 FOR 1=1 TO LEN(MS)-1 STEP 2 

▼ 470 LET NS=NS*MIDS(MS,m,l> 

▼ 480 LET NS=NS*M1DS(MS,1,1> 

490 NEXT ULET MS=NfsRETURN 


Os espiões em geral 
decodificam suas 
mensagens antes de 
enviá-las, para ver se 
estão corretas. 


270: Vai para a sub-rotina que desloca 
as letras. Suprime a primeira letra. 
310-390: SUB-ROTINA PARA 
DESLOCAR 

310: Coloca uma “string” vazia em NS. 
320: Começo de um “loop” que remove 
letras de M$ uma por uma. 

330: Obtém o número de código do 
computador para a letra. 

340: Se é um espaço, não faz nada. 

350: Soma o valor de X ao código da 
letra. 

360-370: Ajusta o número de código se 
for maior que o código de Z ou menor 
que o código de A. 

380: Acrescenta uma letra a N$ e volta 
ao início do “loop”. 

390: Depois que todas as letras foram 
deslocadas, a nova mensagem é 
colocada em M$. 

400-410: Sub-rotina que recebe uma 
mensagem. 

420-440: Sub-rotina que inverte a 
mensagem. 

450-490: Sub-rotina que troca as letras 
duas a duas. 



Modificações 


•10 Substitua CLS por HOME 
AIO Substitua CLS por PRINT CHRS(147) 
♦*130 LET X=INT(RND*25)+1 
*■•130 LET X=INT(RN0(1)*25+1) 

▼ 230 LET KS=M$(1 ) 

▼ 240 LET HS-MS<2 T0 ) 


▼ 250 LET X=C0DE(K5)-64 
▼270 GOSUB 310:LET MS=MS(2 T0 ) 
▼330 LET QS=MS(I):LET N=C0DE(0S) 
▼430 LET NS=NS+MS( I ) :NEXT I 
▼470 LET NS=NS+MSS( 1+1 ) 
t 480 LET NS=NS+MS( 1 ) 





Você é capaz de 
descobrir o que 
eles estão dizendo? 





Encontro Marcado 

Sua missão é complicada, de modo que você 
deve ler estas instruções com atenção. 

Você precisa apanhar uma maleta em um 
escaninho da estação, entregá-la ao seu 
contato e voltar ao aeroporto a tempo de 
pegar o último avião (o computador lhe dirá 
a hora). 

O computador lhe informa onde estará o 
contato e a que horas. Você tem que deixar 
uma mensagem nesse lugar, antes da hora 
marcada, di/endo onde e quando o 
encontrará para entregar-lhe a maleta. 

Você precisa descobrir a senha antes de 
encontrar o contato e não pode chegar 
atrasado mais que 15 minutos. 

Antes de pegar a maleta, você precisa 
encontrar a chave do escaninho e também 
descobrir o seu número. Infeli/mente, a 
chave se encontra nas mãos de agentes 
inimigos, que estão hospedados no Hotel. 
Você precisa encontrar um espião inimigo e 
segui-lo, na esperança de que deixe cair a 
chave (torcendo, naturalmente, para que ele 
não o veja). 

O mapa mostra os lugares aonde você 
pode ir e a lista abaixo mostra as palavras 
que você pode usar no jogo. 
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Talvez você queira anotar a 
senha e o número do escaninho 
(em código, naturalmente). 


Palavras que podem ser usadas 

HORA — Para saber que horas são. 

IR — A qualquer lugar do mapa. 

DIZER — A senha. 

EXAMINAR — Qualquer coisa. 
(Kxaminar a chave para saber o número.) 

LER — Uma mensagem. 

ABRIR — O escaninho. 

SEGUIR — Um espião inimigo. 


Se quiser, você pode 
escolher outras senhas. 



KSPKRAR — Um certo tempo. 

DKIXAR — Uma mensagem. 

PROCURAR — Km qualquer lugar (para 
achar a chave). 

LKMBRAR — Para saber a hora e local 
do encontro. 

Você também pode usar qualquer dos 
nomes que aparecem no mapa em letras 
maiúsculas. 



Você também pode mudar os 
nomes dos lugares. 




Como o programa funciona 



10: Vai para o final do programa para 
ler os dados e iniciali/ar as variáveis. 

20: P, Y e X assinalam a posição do 
jogador. EP é a posição do inimigo. 


10 GOSUB lOlOtGOSUB 1130 
20 LET P-lsiET r=0:LET X=i:iET EP*10 
30 LET U=0:LET NH*0 
40 LET SS* ' 

50 LET BS= 

A9 60 CLS:PRINT:PRINT 'ENCONTRO MARCHOU' 

70 PR INI ===== = «=.».. = ,, = .• 

00 LET NM=NH*1 

90 PR 1NT :PRINT 

100 PR INI BS:PRINT 

110 PR 1NT:PR 1NT UOCE ESTH N '; 

120 PR1N1 RStP) 

130 1F EP*P 1HEN PR INI 0 RGENTE ÍNIRIGO ESTfi H0U1":IFT NE’-NÍH 
140 IF EPOP THEN LET NE-0 

150 IF P=HP THEN PR1N1 ' HR UNR hENSRUEM PRRR UOCF 
160 LET FC3)*0 
170 LET TI -H*M/100 

180 IF F(4)=1 RNO MIDSlPS(P) t 3.LEN<RS(P) > >=SS RND U<=T1 RND !I*.15>T1 THEN 


50: B$ c para as mensagens do 
computador para o jogador. 

80: Aumenta NM (número de 
movimentos). 

130: NE conta há quanto tempo o 
jogador está no mesmo lugar que um 
agente inimigo. 

170: Calcula o tempo (II = horas, 

PRINT TSiLET F(3Í =1 M = mínUtOS). 






19© If P*l ANO H<FM «NO FC?»»1 THEN GOTO 890 
?00 PR1NT SPRINT SPRINT E AGO»« 

?>0 LU BS 
220 INPUT IS 

▼ 230 LEI V*0*fOR 1*1 TO II 
240 lí IS»VS(il THEN LET V»I 
250 NEXT I 

•▼▲■• 260 lí V-*0 THEN LCT V*12 

270 If NE=3 ANO RND< 10113 ANO VOI THEN LU BS' 0 «GENTE INIMIGO VIU VOCC * :GOTO 60 

280 lí NE=5 1HIN PR INI VOCE FOI CAPTURAOO’ :STOP 

290 ON V GOSUB 360, 420. 490,540. 570. 490. 710,730, 780, 810,820, 870 

300 LCT H*M»OT 

310 IF M>59 THEN LIT H-M 60«lET H-MOiGOTO 310 
320 IF F<21*1 «NO M> »CH THEN lEI FI4)«I 
330 If H-FH THEN GOTO 880 
•▼AM 340 If RNOílOI‘9 THEN LET EP-IO 
350 GOTO 60 

340 PRINUPRINI PARA ONOE :|NPUT NS 

▼ 370 LET NP ’0«F0R 1*1 TO 20 

380 lf NS-M1DS(RSU I ,3,LEN<RS< I ) ) I THEN LET NP=I 

390 NEXT I * IF NP 0 THEN GOTO 340 

400 GOSUB 950 

410 LET P=NP:RETURN 

420 LET DT=5 

430 PRINUPRINI DIZER 0 QUE UNPUT OS 

440 !F EP=P THEN LET 88- VOCE ATRAIU 0 AGENTE INIMIGO’ " sRETURN 
450 If f <31*0 THEN LET BS* NNO HA NINGUÉM PRRH OUVI-LO :RUURN 

460 If OSOPS 1HEN LET IS- SEU CONTATO IGNOROU 0' :RETURN 

470 II I <61*1 THEN LEI RS- VOCE FEZ CONTATO - ELE LEVOU A MALETA’ «LU f <7)*l SRETURN 

480 If f 161-0 THfN LET BS- VOCE FEZ CONTATO, MAS NAO TEM A MALETA" sRETURN 

490 LET OT-5 

500 PRINUPRINI 0 OUE VOCE QUER EXAMINAR «INPUI US 

510 If OS CHAVE HNO f(5)*l T»CN LET BS UM NUMERO « •STRt<MLUtEU*N 
520 If OS» CHAVE THEN IS» QUE CHAVE’ «RETURN 
530 ll I BS- NAO A OE ESPECIAL’ «RE TURN 

540 11 POMP (IR F 111*1 THEN LET IS NAO HA NADA PARA SER L IDO’ " «RE TURN 
550 LET BS -UMA PALAVRA : "♦PS» 

560 LET F I 1 1*1 lIETURN 
570 LET 01 ‘5 

580 IF P016 THEN LET BS- NAO HA NADA PARA SER ABERTO" «RETURN 
*** If F<5>=0 THEN LET BS- VOCE NAO TEM CHAVES": RE TURN 
2RINUPRINT QUAL 0 NUMERO DO ESCANINHO : 1 NPUT YN 
610 If NU > YN THEN LU BS» A CHAVE NAO SERVE" »RC TURN 
620 LU BS "0 ESCANINHO ESTA ABERTO VOCE TEM A MALETA '"SLET M6)»l 
630 RE TURN 
640 LET 0T»5 

650 If EPOP IHEN LET BS SEGUIR QUEM’ «RETURN 
•«tM 660 LET NP -R NO < 201 : GOSUB V50«lEI P*NP 
•▼AM 670 II RNOMODB IHEN LET P*IP 

•▼AM 680 If RND( 10117 THI N LU BS VOCE 0 PERDEU DC VISTA APOS UN CERTO TEMPO sRETURN 
690 LET EP*P 

700 EET BS- 1 VOCE NAO 0 PEROEU DE VISTA «Rf TURN 
710 PRINUPRINI QUANTOS MINUTOS" : INPUT OT 
720 RETURN 

730 PRINUPRINI ONOf QUER ENCONTRA-LO’" « INPUI SS 

▼ 740 PRINUPRINI « QUE HORAS <m,NMl 
750 INPUT HH,MM:U=HH*MM/100 

760 IF P»CP ANO II (U AND HtCH THEN LET F(2)*l 
770 LET DT*5«RETURN 

780 111 BS» "NAO HA NADA AQUI " «LET DT = IO 

790 IF P«KP THEN LET BS-"VOCE ACHOU UMA CHAVE «LET F(5)=l 

800 RETURN 


180-190: Verifica se a missão foi 
cumprida. 

200-260: Recebe instrução do jogador 
e a compara com as que estão 
guardadas na memória. V é o número 
da palavra encontrada. 

270-280: Verifica o valor de NE para 
saber se o jogador foi visto pelo 
inimigo. 

290: Pula para uma entre várias sub- 
rotinas, dependendo da instrução 
recebida. 

300: Incrementa o tempo. 

330: Verifica se o tempo do jogador 
acabou. 

340: Leva o inimigo de volta para o 
Hotel. 

360-410: SUB-ROTINA PARA IR 

420-480: SUB-ROTINA PARA 
DIZER 

490-530: SUB-ROTINA PARA 
EXAMINAR 

540-560: SUB-ROTINA PARA LER 

570-630: SUB-ROTINA PARA 
ABRIR 


640-700: SUB-ROTINA PARA 
SEGUIR 


710-720: SUB-ROTINA PARA 
ESPERAR 



730-770: SUB-ROTINA PARA 
DEIXAR 

780-800: SUB-ROTINA PARA 
PROCURAR 

810: SUB-ROTINA PARA DIZER A 
HORA 


820-860: St B ROTINA PARA 
LEMBRAR 



870: Sl B-RO TINA PARA 
PALAVRAS DESCONHECIDAS 



B* SUO 


•"NUTK 




As sub-rotinas do 
programa estão nas 
linhas de 360 a 870. 


810 Ift DT-OslEI 
820 LCT OTO 
830 ir U'0 1*N R0T0 860 
840 PRINTlPRINT 0 LUGRR 0C ENCONfRO E 
850 PB1NT S*: AS ; HH- HORRS l :W : 

860 GOSUB '300:RETURN 
B70 LET DT-OiLET BS‘ HC IM> SRHURN 
800 PRINT TWÍOC DE "AIS JSTQP 

8V0 PRINTlPRINT "UPO UH. SUB HISSAO FOI UH SUCESSO' 

’00 i-ET U.«<FH-Hlt60" 

910 IET S=INT<<?0/N*4Tl/120>*50> 

920 PRINTlPRINT SUA NOTA* 

930 PBIMT FOI ,S 
940 STOP 

950 IET NY=INT<iNP-l 1/3) 

960 LET Ni -NP 5BNY 

970 IET OX-AISIX-NXni.ET DY.RBS<Y-Nr» 

980 LE» X-NXUET »-NY 
990 LET D=SQR<0*«DX»0Y*DTI 
1000 LET 0T : INT(5*D):RETUBN 
▼ 1010 Olfl B««20).VS111),F<7> 

1020 JQÊ | >1 TO ZOlRCRO ••< I ) 

1030 NC XT I 

1040 FOt M TO I1JBERD V*T|>:NCXT I 
1050 BETUBN 

1060 DATA 0 RÍBOPORJQ . A PARRDA 0» ÔNIBUS . A PONTE", "O RIO R IGREJA*! 
1070 DATA "0 PRROUE .11 BESTAUBANTE . *0 BRNCO , 0 CINCHA . 0 HOTIl 
1080 DATA R ESCOLA . A PRAÇA .0 CORREIO" . A DELEGACIA ."0 CIRCO 
1090 OfllR A ESTRCRO" . "R PREFEITURA . A ChBAIXAOA . 0 JAROlíV , "0 CRSTELO ‘ 
1100 ORTR “IR". DIZER . EXAMINAR / U* . RBRIR .SEGUIR .ESPERA» .DEIXAR* 
1110 ORTR "HORA , LEN8RRB 

müs mV:r,: a u'::v," 05,MM ■ ~ • •- o5ou '’° • 

1140 IET I H-BN0(?>*14 
t96H 1 150 LET CH=RN0(2)4H 
tnlt 1160 CLSiPR INT :PR1NT 

{▼AM 1170 LET NE OSIET f»-“0 CONTATO ESTR RDUI 

♦ 1100 LET NP-BN0<I8)«LET IP>BN0<I8) 

♦ ▼*■•1190 LET EPrRNOl 18» Hl 1 CP«RN0‘18> 
fnat 1200 FOR I«l TO RN0<6> 

ma# 1210 RERO PSiNEXT I 
•»6»a 1220 LET Nl : «tf» <900 >« 99 

1230 PRINT ENCONTRO HRRCROO 
1240 PRINT ............o,:; ,PR|H> 

1250 PRINT APANHE HENSRGEN 
1260 PRINT "N ;Bf (NP) 

1270 PRINT "0 CONTRTO ESTARA 
1280 PRINT "N" |Bt<CP) 

1290 PRINT "RS ;CM; HORRS 
1300 PRINT 0 ULI1H0 VOO PARTE 
1310 PRINT RS ;FH; HORRS 

1320 PRINT-.PRIN1 RPERTE RETURN PRBH CUN11NURB 
1330 INPU1 QliRElURN 


XKU: Mensagem para quando o 
^lempo aeaba. 

890-940: Imprime mensagem e 
calcula a contagem de pontos para 
,*uma missão bem-sucedida. A 
contagem depende do número de 
movimentos e do tempo que resta. 

950-1000: Siih-rotina para calcular 
a distância percorrida e o tempo 
gasto pelo jogador. 


1010-1050: Siib-rolina para ler os 
ados. 


1060-1120: Linhas de dados. 

1130: Lscolhe a hora inicial. 

1 140: Kscolhc a hora do último vôo. 

1150: Kscolhc a hora para o 
contato apanhar a mensagem. 

1180-1190: Lscolhe os locais da 
mensagem, da chave, do inimigo e 
onde o contato vai apanhar a 
mensagem. 

1200-1210: Lscolhe a senha. 

1220: Lscolhe o número do 
escaninho. 

1230-1320: Imprime a apresentação 
do jogo. 



Modificações 


• o0, UoO Substitua CLS por HOME 
A 60. 1160 Substitua CLS oor PRINT CHRS<147> 

▼ 225 !P LEN(!S>;7 THEN LET I íOOTO 225 

▼ 290 GOSUB 3604<V'=m420*<V*2>M908íV=3H540*<V=4*+570*<V=5Hò40*(V=6> 

♦ 7108(y-7)4’"30*(V r 9 < *78014 V -9) *8108(0=10) *8208(0-11 >*8708(0-1 i . 

▼ 365 |F LEN4NSX14 THEN tET NS * Nl • :GOTO 365 

▼ 380 LET ZSMtSt I >: 1F NS Z4'3 10 LEN'Z*>> TMF.N LET NP 

▼ 735 IF LEN(SSX14 THEN LET SS $S* :GCT0 735 

▼ 1010 DIM R$(29.14):D!H OS(l1,7i!DIM F(7) 

270, 340. 660. 670. 680. U30.M40. 1*50,1 180. 1190, »?00. 1220 
Substitua PND(P) oor INT‘RN[)8n*l> 

270, 340. 660, 670, 680. 1130. 11 40. 1150, 1180, li 90, 1200. 1220 
Substitua SND(n) por 1NT(RN0U)ín*l ) 


Veja se consegue descobrir' 
para que servem todas as 
linhas das sub-rolinas. ^ 


As variáveis F(l), F(2) etcN 
são “bandeiras”. F(5), por 
exemplo, é 1 se você está 
com a chave e 0 se não 
está. Veja se descobre 
para que servem as outras 
bandeiras. 
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Codigo Morse 


Se você quer ser um bom espião, íerá 
que aprender a enviar, receber e também, 
naturalmente, interceptar mensagens em 
Código Morse. Este programa o ajudará 
a praticar. Se você nào conhece o Código 
Morse, terá que preparar uma tabela com 
as letras e seus equivalentes em código. 
Para isso, pode usar as linhas 400 a 450 
do programa, que mostram os sinais de 
Código Morse de todas as letras em 
ordem alfabética. 


Como usar o programa 

No Código Morse, cada letra é 
representada por uma série de sinais 
longos e curtos. Este programa usa uma 
estrela que pisca. Ele transmite o código 
de uma letra e pergunta a você qual foi 
essa letra. 



10 GOSUB 370 
*•20 CLS 

30 LET S=30 

40 PRINT SPRINT “CODIGO MORSE" 

50 PR I NT : PR INI "QUAL 0 NIVEL ? 

60 PR INI x PR INT "(I-RHPIDO)" 

70 PR I Nr s PR INT “<3»IENT0>“ 

80 INPUT P:lET P=PtS 
A • 90 CLS 

100 PR INT :PR INT “PREPARE-SE" 

110 FOR T=1 T0 20tS:NEXT T 
120 GOSUB 310 

▼ 130 LET Ff -<Nf <RSC<0t ) -64) 

140 GOSUB 220 
150 CLSsPRINT 

160 PR INT ESCREVA R RESPOSTA" 

170 INPUT XI 

180 IF X!=QS THEN PR INT "CERTO" 

190 IF XSOQS THEN PRINT "NfiO. R LETRfl ERR "-0S 
200 FOR T=1 T0 30*S:NEXT T 
210 GOTO 90 
220 FOR J=1 T0 LEN(FS) 

£230 LET Uf=MIDS<Ff,J,l> 

240 IF U!=".“ THEN LET K=1 
250 IF US=“ -“ THEN LET K=3 
260 GOSUB 330:LET K^l 
270 GOSUB 340 
280 NEXT J 
290 RETURN 
300 PRINT 

♦▼AR# 310 LET QS°CHRS( INT < QNO(O) *26*65 ) ) 

320 RETURN 

•▼AR# 330 PRINTP 240. "f 

340 FOR T=1 TO P*K:NEXT T 
♦▼AR# 350 PRINT? 240." “ 

360 RETURN 
▼ 370 0!M Ml (26) 

380 »0R I«1 TO 26:RER0 MKIMNEXT I 
390 RETURN 

400 DATA “ 

410 DATA 
420 DRTR 

430 OATA • 

440 OATA 
450 DATA 


Modificações 



# 20,90.150 Subitilua CLS por HOME 
A 20,90.150 Substitua CLS por PRINT CHMM47» 

▼ 130 LET FI?nl(CQ0€ <0S)-64) 

▼ 230 LET UI=FHJJ 

▼ 235 IF UI- “ THEN COTO 280 
♦▼310 LET 0l'CHI|(INT"NDt?t«&5> 

AR# 310 LEI 0I-CHR|(|NI<INDM)I?6«63> 

▼ 330 PRIMI RI 10. 10 t I" 

#330 VT«B ( 10) IPRIMI 1 RB (10) f"l" 

A 330 PRINT CHR«(19)if0t 1-1 TO lOlPIINTiNEXTiPIlNT TA*<»<»,-*“ 
♦■ 330 LOCflTF 10. 10:PRINI T 1 

▼ 350 PRINT AT lO.lOi" * 

#350 VIRBOOIIPIINI TA»(I0)|" " 

♦s™ k ,o ■ 

▼ 370 DIN • HS< 2A. 41 


Como funciona 

10: Vai para a sub-rotina que lê os 
dados. 

30: Estabelece a velocidade. 

50-80: Pergunta qual o nível que você 
quer e calcula a velocidade do jogo 
dependendo da resposta. 

110: Pausa 

120: Vai para a sub-rotina que escolhe 
uma letra ao acaso e a guarda em Q$. 
130: Determina o Código Morse para 
a letra e o guarda em F$. 

140: Vai para a sub-rotina que 
imprime a estrela. 

160-170: Recebe a sua resposta. 
180-190: Verifica se a resposta está 
correta e imprime uma mensagem 
apropriada. 

200-210: Faz uma pausa e volta para a 
letra seguinte. 

220-250: Examina todos os elementos 
de K$, fazendo K igual a 1 para os 
pontos e igual a 3 para os traços. (K 
determina o tempo que a estrela 
permanece na tela.) 

260-270: Vai para a sub-rotina que 
imprime a estrela. Volta, faz K igual a 
I e volta para a sub-rotina na linha 
340 para “imprimir ,, um espaço. O 
objetivo é deixar um espaço entre os 
pontos e traços. 

280: Volta para o ponto ou traço 
seguinte. 

310-320: Sub-rotina para escolher uma 
letra ao acaso. 

330: Imprime a estrela. 

340: Espera por um período de tempo 
que depende de K. 

350: Imprime um espaço no lugar da 
estrela. 

370-390: Sub-rotina que lê os dados. 
400-450: Linhas de dados. 


Respostas dos problemas 

Aqui esíão as respostas de alguns dos problemas apresentados neste livro. Pode ser que 
sejam diferentes das suas. Se os seus programas funcionarem corretamente, tudo bem. 
Entretanto, verifique se suas respostas são tão simples e objetivas quanto as do livro. 

Olhos de Espião 

Aqui está como mostrar o recorde do momento. 

15 LET H-Q 

215 PRINT "RECORD = ";H 

275 1F P>H TEHN LET H=P: PRINT "ESTE E 0 NOVO RECORD" 

290 INPUT AS: IF A$="S" THEN BOTO 20 


Holofote 

Aqui está como fazer o holofote ficar aceso por mais tempo... 

430 IF C1=TC THEN LET L=1 : LET C1=0:LET TC=I NT (RND <0) «10+ (8- A))+10:6QSUB 300 


...e aqui está como dar ao jogador uma segunda 
oportunidade. 

15 LET NJ=0 
255 LET MJ=NJ+1 

257 IF NJ<2 THEN FOR T=1 T0 200tNEXT T:S0T0 30 


Use * versão de RNI) 
apropriada para o seu micro. 




Esle "loop" fa/ uma pausa para que^ 
você possa ler a mensagem. Para uma 
pausa maior, basla usar um número 
maior que 200. V 


Espiobot 

As linhas abaixo fazem o computador perguntar 
o nome do jogador quando este bate o recorde. 



NJ é uma nova variável para 
guardar o número de jogadas. 


25 LET H»="NIN6UEH* 

330 Suprita esta linha 

365 IF E=t AND S>H THEN LET H=S:B0SUB 410 

410 PRINT "ESTE E 0 N0V0 RECORDE" 

420 PRINT "ESCREVA SEU N0NE, POR FAVOR" 

430 INPUT HltRETURN 

Teste para Espiões 

Aqui está como mudar o número de posições de 
10 para 15 

10 Din N ( 15) : DII1 N$(5) 

70,160,200,460 Mude o 10 nessas linhas para 15 

Nota para os usuários do MSX: Em to- 
dos os programas, acrescente a linha: 

5 R=RND ( -TIME ) 

Nota para os usuários do PC: Em to- 
dos os programas, acrescente a linha: 

5 RANDOMIZE VAL ( R IGHT* ( T I ME* , £ ) ) 


Nota especial para os 
usuários do TK-2000 

Se o seu micro é um TK-2000, 
use as modificações indicadas 
para a família Apple, com uma 
única exceção: se a modificação 
for do tipo 

ini PEEI (-U384)) 127 THEN GET at 

onde nnn é o número da linha e 
a$ é o nome de uma variável, 
substitua esta linha por: 
ui a»=“’:CflLL -16397! IF PEEKH6385)>0 THEN GET at 
e acrescente as seguintes linhas: 

1 DATA 169,255,141,0,192,77 

2 DATA 16,192,141,255,191,96 

3 FOR Is-16397 T0 -16386 

4 READ A: POKE 1,A:NEXT I 
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